www.gusucode.com > matlab从零到进阶程序与数据 > matlab从零到进阶程序与数据/第11章 方程与方程组的数值解/AJfixPayment.m

    function F=AJfixPayment(MP,Num,B,Rate)
%code by ariszheng@gmail.com
%2009-6-18
IR=zeros(1,Num);
YE=zeros(1,Num);
BJ=zeros(1,Num);
YE(1)=B;
for i=1:Num
    IR(i)=Rate*YE(i);
    BJ(i)=MP-IR(i);
    if i<Num
    YE(i+1)=YE(i)-BJ(i);
    end
end
F=B-sum(BJ);